Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/scrl_cj/scroll.frm

Text File | 1995-05-07 | 7KB | 252 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Scroll-Demo"
   ClientHeight    =   3720
   ClientLeft      =   2700
   ClientTop       =   3810
   ClientWidth     =   5820
   Height          =   4125
   Left            =   2640
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   5820
   Top             =   3465
   Width           =   5940
   Begin PictureBox Picture1
      BorderStyle     =   0  'None
      Height          =   5685
      Left            =   -405
      ScaleHeight     =   5685
      ScaleWidth      =   9150
      TabIndex        =   0
      Top             =   630
      Width           =   9150
      Begin CheckBox Check4
         Caption         =   "Enable Thumbtrack"
         Height          =   285
         Left            =   315
         TabIndex        =   15
         Top             =   1305
         Width           =   2625
      End
      Begin CheckBox Check3
         Caption         =   "Check3"
         Height          =   375
         Left            =   3375
         TabIndex        =   14
         Top             =   5130
         Width           =   1140
      End
      Begin CheckBox Check2
         Caption         =   "Check2"
         Height          =   375
         Left            =   1980
         TabIndex        =   13
         Top             =   5130
         Width           =   1050
      End
      Begin CommandButton Command2
         Caption         =   "End Demo"
         Height          =   600
         Left            =   4320
         TabIndex        =   11
         Top             =   315
         Width           =   1500
      End
      Begin CheckBox Check1
         Caption         =   "Check1"
         Height          =   330
         Left            =   360
         TabIndex        =   10
         Top             =   5175
         Width           =   1410
      End
      Begin CommandButton Command1
         Caption         =   "About"
         Height          =   375
         Left            =   4410
         TabIndex        =   9
         Top             =   1125
         Width           =   1230
      End
      Begin PictureBox Picture2
         Height          =   2310
         Left            =   2115
         Picture         =   SCROLL.FRX:0000
         ScaleHeight     =   2280
         ScaleWidth      =   3900
         TabIndex        =   8
         Top             =   2295
         Width           =   3930
      End
      Begin Frame Frame1
         Caption         =   "Frame1"
         Height          =   1365
         Left            =   315
         TabIndex        =   4
         Top             =   2205
         Width           =   1725
         Begin OptionButton Option3
            Caption         =   "Option3"
            Height          =   285
            Left            =   315
            TabIndex        =   7
            Top             =   900
            Width           =   1275
         End
         Begin OptionButton Option2
            Caption         =   "Option2"
            Height          =   285
            Left            =   315
            TabIndex        =   6
            Top             =   585
            Width           =   1140
         End
         Begin OptionButton Option1
            Caption         =   "Option1"
            Height          =   285
            Left            =   315
            TabIndex        =   5
            Top             =   270
            Width           =   1095
         End
      End
      Begin TextBox Text1
         Height          =   285
         Left            =   990
         TabIndex        =   3
         Top             =   1800
         Width           =   1500
      End
      Begin Shape Shape2
         FillColor       =   &H00FF00FF&
         FillStyle       =   7  'Diagonal Cross
         Height          =   240
         Left            =   4995
         Shape           =   2  'Oval
         Top             =   5220
         Width           =   1095
      End
      Begin Shape Shape1
         BackColor       =   &H008080FF&
         BackStyle       =   1  'Opaque
         Height          =   465
         Left            =   4815
         Top             =   5085
         Width           =   4155
      End
      Begin Label Label3
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "This Scrolling is made by using the Messenger VBX from JOSWare. The rest is simple using of Windows API-Functions.  "
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   18
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   4740
         Left            =   6120
         TabIndex        =   12
         Top             =   225
         Width           =   2775
      End
      Begin Label Label2
         Caption         =   "Input:"
         Height          =   195
         Left            =   315
         TabIndex        =   2
         Top             =   1845
         Width           =   600
      End
      Begin Label Label1
         Caption         =   "How to Scroll in Visual Basic...."
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   24
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1140
         Left            =   315
         TabIndex        =   1
         Top             =   180
         Width           =   3975
      End
   End
   Begin PictureBox VBMsg1
      Height          =   420
      Left            =   90
      ScaleHeight     =   390
      ScaleWidth      =   390
      TabIndex        =   16
      Top             =   90
      Width           =   420
   End
End

Option Explicit

Sub Check4_Click ()

    If Check4.Value = 1 Then

        EnableThumbTrack True
    Else
        EnableThumbTrack False
    End If
    MsgBox "Drag the thumb for result !"

End Sub

Sub Command1_Click ()

Dim sAbout As String
Dim cLF As String * 1

    cLF = Chr$(13)
    sAbout = "Feel free to use this code and"
    sAbout = sAbout + cLF + "to change it in your direction!"
    sAbout = sAbout + cLF + "If you make interesting extensions, or"
    sAbout = sAbout + cLF + "if you have problems with my code, plese let me know."
    sAbout = sAbout + cLF + "I'm reachable as Christian Jⁿrges, CIM 100277,2551"
    MsgBox sAbout

End Sub

Sub Command2_Click ()

    End

End Sub

Sub Form_Load ()

   ' Activate VbMsg-Control
   VbMsg1.SubClasshWnd = Form1.hWnd
   InitScrollPic Picture1
   ' Center Form
   Form1.Top = (Screen.Height - Form1.Height) / 2
   Form1.Left = (Screen.Width - Form1.Width) / 2

End Sub

Sub Form_Resize ()

    SetScrollBar Form1, Picture1

End Sub

Sub Form_Unload (Cancel As Integer)

End

End Sub

Sub VBMsg1_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)

    Scroll Form1, Picture1, Msg, wParam, lParam

End Sub